long rfact(long n){
	long result;
	if(n<=1)
		result=1;
	else
		result=n*rfact(n-1);
	return result;
}
